home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 401-425 / disk_418 / moduladefs / graphic.def < prev    next >
Text File  |  1992-05-06  |  1KB  |  32 lines
  1. (*******************************************
  2.  *  Name : Graphic.DEF                     *
  3.  *  Author : JSG                           *
  4.  * Purpose : graphic library drawing       *
  5.  *            functions                    *
  6.  *******************************************)
  7.  
  8. DEFINITION MODULE Graphic;
  9.  
  10. FROM SYSTEM IMPORT ADDRESS;
  11.  
  12. PROCEDURE Draw(rP:ADDRESS; x,y : LONGINT);
  13. PROCEDURE Move(rP:ADDRESS; x,y : LONGINT);
  14. PROCEDURE Text(rP:ADDRESS; VAR st : ARRAY OF CHAR;len : LONGINT);
  15. PROCEDURE SetAPen(rP:ADDRESS;fg : LONGINT);
  16. PROCEDURE SetBPen(rP:ADDRESS;bg : LONGINT);
  17. PROCEDURE SetRast(rP:ADDRESS;bg : LONGINT);
  18. PROCEDURE RectFill(rP:ADDRESS;xmin,ymin,xmax,ymax : LONGINT);
  19. PROCEDURE WritePixel(rP:ADDRESS; x,y : LONGINT);
  20. PROCEDURE Flood(rP:ADDRESS; fm,x,y : LONGINT);
  21. PROCEDURE SetRGB4(vP:ADDRESS; n,ri,gi,bi : LONGINT);
  22. PROCEDURE DrawEllipse(rP:ADDRESS;cx,cy,a,b:LONGINT);
  23. PROCEDURE AreaEllipse(rP:ADDRESS;cx,cy,a,b:LONGINT);
  24. PROCEDURE InitArea(ai,buff:ADDRESS;maxv:LONGINT);
  25. PROCEDURE AreaMove(rP:ADDRESS;x,y:LONGINT):LONGINT;
  26. PROCEDURE AreaDraw(rP:ADDRESS;x,y:LONGINT):LONGINT;
  27. PROCEDURE AreaEnd(rP:ADDRESS);
  28.  
  29.  
  30. END Graphic.
  31.  
  32.